home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
cnet
/
randchat.lha
/
RandChat.REXX
< prev
Wrap
OS/2 REXX Batch file
|
1993-12-31
|
251b
|
25 lines
/* RandChat by Wolverine / DMI */
options results
parse arg chat
sf = 'sendfile'
MaxFiles=4
path = 'pfiles:ChatText/'
main:
num = random(1,MaxFiles,time(s))
if chat = 'chat' then do
sf path||'chat.'num
end
else do
sf path||'end.'num
end
exit